source("script_1.R")

cat("Twice two is:", twice(2), ", thrice two is:", thrice(2), 
    "and four times 2 is", four_times(2))

